home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
a_utils
/
perl
/
prlbkxmp.lha
/
ch1
/
reparens
< prev
next >
Wrap
Text File
|
1991-01-07
|
1KB
|
31 lines
#!/usr/bin/perl
$_ = 'Date: 1 Apr 91 12:34:56 GMT';
/^Date: (\d+) (\w+) (\d+) (\d+):(\d+):(\d+) (.*)$/;
$mday = $1; # gets "1"
$month = $2; # gets "Apr"
$year = $3; # gets "91"
$hour = $4; # gets "12"
$minute = $5; # gets "34"
$second = $6; # gets "56"
$timezone = $7; # gets "GMT"
/^Date: ((\d+) (\w+) (\d+)) ((\d+):(\d+):(\d+)) (.*)$/;
$date = $1; # gets "1 Apr 91"
$mday = $2; # gets "1"
$month = $3; # gets "Apr"
$year = $4; # gets "91"
$time = $5; # gets "12:34:56"
$hour = $6; # gets "12"
$minute = $7; # gets "34"
$second = $8; # gets "56"
$timezone = $9; # gets "GMT"
@fields = /^Date: (\d+) (\w+) (\d+) (\d+):(\d+):(\d+) (.*)$/;
($mday, $month, $year, $hour, $minute, $second, $timezone) =
/^Date: (\d+) (\w+) (\d+) (\d+):(\d+):(\d+) (.*)$/;
($mday, $month, $year, $hour, $minute, $second, $timezone) =
$date =~ /^Date: (\d+) (\w+) (\d+) (\d+):(\d+):(\d+) (.*)$/;